PPPPPPPPPPPP LLL IIIIIIII1 RRRRRRRRRRRR TITTTTTTTTTTTITT LLL 

PPPPPPPPPPPP LLL LIIIIII11 RRRRRRRRRRRR TTTTTTTTTTTTTITT § LLL 

PPPPPPPPPPPP LLL LIIIIII11 RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL 

PPP PPP LLL II] RER RRR TTT LLL 

PRP PPP LLL III one RRR TTT LLL 

PPP PPP LLL II] RRR RRR TTT LLL 

PPP PPP LLL II] ROR RRR TTT LLL 
PPP PPP LLL II] RRR RRR TTT LLL 

PPP PPP LLL II] dd TTT LLL 

PPPPPPPPPPPP LLL II] RRRRRRRRRRRR TTT LLL 

PPPPPPPPPPPP LLL III RRRRRRRRRRRR TTT LLL 

PPPPPPPPPPPP LLL II] RRRRRRRRRRRR TTT LLL 

PRP LLL II] RRR RRR TTT LLL 

PPP LLL II] RRR RRR TTT LLL 

BPP LLL II] RRR RRR TTT LLL 

PPP LLL II] RRR RRR TTT LLL 

PRP Lil II] AER RRR TTT LLL 
PPP LLL I]] FOR RRR TTT LLL 
PPP LELLLLELLLLLLLL IIIIIII11 RRR PRR TTT LLLLLLLLLLLLLLL 

PPP LELLLLELLLLLLLL IIIIIII11 RAR RRR TTT LLLLLLLLELLLLLLE | 
PPP LLLLLLLLLLLLLLL IIIIII111 RRR RRR TTT LELLLLELLLLLLLL 


ad 
nn 


in 
ix 
13 


Ot oe Ps be bt bb be bt 


bo bs be oe as es | ell onl coed 


PRPPZ PPPPVPP PPP -PPPPPPPPPPPPPPPP? 


osenenes 


227222222 
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PPPPPPPP LL III] RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD 

PPPPPPPP LL 111111 RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD 

PP PP LL I] RR RR EE AA AA DD D 

PP PP LL I] RR RR EE Aa AA DD DD 

PP Pr AS I] RR RR EE AA AA DD DD 

PP rw tL I] RR RR EE AA AA DD DD 

PPPPPPPP LL I] RRRRRRRR EEEEEEEE AA AA 0D DD 

PPPPPPPP LL I] RRRRRRRR EEEEEEEE AA AA DD DD 

PP LL I] RR RR EE AAAAAAAAAA DD DD 

PP LL I] RR RR EE AAAAAAAAAA DD DD 

PP LL I] RR RR EF AA AA DD DD eee 
PP LL II RR RR EE Ab AA DD DD cece 
PP LLLLLLLLLL III] RR RR EEEEEEEEEE AA AA DDDDDDDD cove 
PP LLLLLLLLLL 111! RR RR EEEEEEEEEE AA AA DDDDDDDD eeee 
LL III] SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL Il SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL Il SS 

LL I] SS 

LELLLLLLLL IIIII1 SSSSSSSS 

LLLLLLLLLL 11111 SSSSSSSS 
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MPARABRAARAABAARAAAALASALALALALALESALESE SEAS ESE SESE ERE ER ERS R RRA RRR RR ES ESE SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® 
® 
® 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER  * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE + 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. . 
*® 
® 
® 
* 
® 
® 


DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR _ RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


* eaenepneneeeeeneennenneaeanenenenne 


LARRRARARASAARASLAAAASALALASLASASASARLEAASSRARARERASESERSERSSASE SESSA S ASSL AS SS 


++ 
facility: 


VAX/VMS PL1 runtime Library. 
abstract: 


This module contains the pli runtime routines for reading a record 
from a file. 


author: c. spitz 18-jul-79 
modified: 
Bill Matthews 08-Jan-1981 
V1.4-02: 
Restore fcb_l _attr into r3 berore calling pli$$keyto_r8. 


1-003 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 


Se Se Se Se Ge Ge Be Se Ge Ge Se Ge Ge Se Ge Ge Ge Ge Se Se Se Ge Ge 
4 


34 
: external definitions 
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0009 0909 09 09 09 09 08 SIN NI NII AAA AOAAOOOwnt 
DONAUE WN O OONAUS WN" OOONAUES WN OOo 


$deffcb 
$defdat 
$defplirtcons 
$fabdef 
$rabdef 
$rmsdef 


ag 
: local definitions 


$offset 4 positive,<- 
<fcbaddr,4>,- 
<readtyes.45. - 
<intoaddr 4>, = 
<intolen, 24° 
<intotyp, 
<keyaddr 4>. - 
<keylen,4>,- 
<keytyp,4>.- 
<keynum,4- - 
<matchgtr,4>,- 
cnatchged. ,4>,° 
<recidfrom, 4>, ~ 
<recidto, 4>, - 
<fxcaddr,4>,- 
<fxclen, é>,- - 
<tuctyp. -2>.* 


rtshare 


wh yod Macro V04-00 
PLIRTL.SRCIPLIREAD.MAR; 1 


8 
6 
ine file control block offsets 
ine operand node data types 
ine pli runtime constants 

ine Fab otfsets 
ine rab otisets 
ine rms error codes 


idefine arguments 
taddr z. _ 
sread t 
saddr Mg {nto or set 
zlength of into 

sdata type of into 
add r of key or keyto 

ey 


jaddr of key num 
saddr of match greater 
saddr of match greater equal 
z;addr of record id from 
Fees of record id to 
addr of fixed control 
tLength of fixed control 
idata type of fixed control 


:sharable 


Page (h 


| 
' 


PULBREAD - pli runtime read record 


: inputs: 


ee eee wee eee foo lolololololololololo) 


VMS Seuwwnnn —— 
VIOMOLOSMOLO—Or 
be Ft ee ee tee tan *. eae 
“Wo oooo000 8 2 —o ®& 
HovvUUTUUVUUOUVT OUD 
5° ee a ee ee 


outputs: 


SOoOoCOCOCOCOOSOSOSSOSOSOSOOSOSOSOSOSOSOOSOOOOOSCOoOSoOSoO Ooooo 
COOooooooooooocoocoooao Sssss ss 


OFC 


SOOOCOCSCSCSCOSOOSOOOSOOOOSOSOSOOSOSOSOOSOSOSOOOOSCOOOOSOOOOOOOOOOOOOOOOOOOOOO 
DBDWNVPINININNVOOCOCOCOOCOCCOCOOC COSCO COCCOCCSCSOSOSOOSCOOCOOOOCOOOOOOOOCOOOOOoOOO 
BEE EEF PWN AIWIWIDIDIPININININININID 2 2 S| DODD OOCOOOCOOCOWOOOWOOWOOOOO 
AUS WN 2 9 ODNA US WIN  O OD NAME WN 09 OO NAME WWI 0 OD NOAUE WW OO OONOAUES WN Oo 


me em ee ee ed a ed dd od od dd dd 8 dd 8 3 3 


SoOoooooooooooo 
SQOooooooooooooo 


—~ Oo 


woo 


side effects: 
if the file is closed, it is opened with the record, input and seql 


se 
fcb_q_rfa is set to 


check arguments. the read type must be >= 0 and <= 5. 
either 7 or 14 arguments. 


Page 3 


16-SEP-1984 02:24:58 YAX/VMS Macro Vv04-00 
gn seP=1984 97:49:36 UPLIRTL. SRCIPLIREAD. MAR; 1 (1) 


p++ 
: pli$read -- read a record from a file 

3 functional description: 

; This routine reads a record from a pli file. 


(ap) - number of orprnente 


7 if ons 


C 
- read type soit 0 = 0 for into, 1 for set; bit 1 = 1 for key 


2 = 1 for keyto 


teeet8es 
~~ 
= 
ow 
o 
. 
> 
@ 
~< 
. 
> 
° 
oo 
@ 
“< 
ad 
°o 


1 
: 
4 
5 - set 


addr of 
Length of into 


) = data type of into 


addr of key or keyto 
size/prec of key or keyto 
data type of key or keyto 
of key number 
addr of match greater 
addr of match greater or equal 
addr of record id from 
addr of record id to 
addr of fixed control 
Length of fixed control 


) = data type of fixed control 


feb_l_attr 


atr_m_delete, atr_m_currec, atr_m_virgin and atr_m_write are 
t to false 
the rfa of the record read 


attributes. 


the record is read into the target. 


entry pli$read,*m<r2,r3,74,r75,r6,r7,r8> 


there must be 


19g) if not enough arguments 
8 sth 


en 
sindicate not enough parms 


e 
fail sand fai 
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32 0% AC D of 147 10$: movil fcbaddr(ap),r2 sget address of fcb 
BAC OD 1 138 movl r adtype(ap) ,r5 sget read type 
A 1 14 «14 bgeq iif read type <0 
50 00000000'8F ° B18 150 208: mov #pli$_readop,r0 zthen set invalid read options 
029F 1 1D =: 151 brw fail sand fa 
05 55 »bd1 0 134 30$: cmpl r5,4#5 :if read option > 5 
Fi 14 00 133 botr 208 then fail | 
0025 155 ; open the file if mqconsery. the file will be opened with the | 
0025 138 ; record attribute. if the file does not have the update attribute, 
0025 157 ; from its declaration, input is also specified for the open. 
09 2 138 ; the file is not opened after calling open, an error is signaled. | 
53 OC A2 00 0025 160 movl = fcb_l_attr(r2),r3 iget files attributes 
ec 53) =«-01)=S— EO «=6(0029)~—Sss«161 bbs #atr_v_opened,r3,50$ if file not opened | 
00001000 8F OD 8 4 16¢ ushl #atr_m_record then request record 
07 5 04 £0 00 16 bs #atr_v_update,r3,40$ :if update not specified 
6€ 00000040 8F CB 0037 164 bisl #atr—m_input, (sp) ;then also request input 
5 DD OO3SE 165 40$: pushl spush address of fcb 
00000000'GF 0 FB 0040 166 calls #2,g*pli$open zsopen the file 
DO 0047 #167 mov feb_l_attr(r2),r3 iget the new attributes 
A 01 €0 0048 £168 bbs #atr_v_opened,r3,50$ if file still not opened 
50 00000000'8F DO OQOO4F 169 movl #pli$_open,r0 then set open failure 
0266 =31 + 3 179 brw fail sand fail 
0059 76 ; make sure file has proper attributes. file must have record. if key 
0059 173 ; or keyto specified, file must have keyed. file must not have output 
4 4 7% ; or delete specified. | 
0A 53. OC £0 0059 176 50s: bbs #atr_v_record,r3,60$ zif file doesn't have record | 
50 00000000'8F 00 005D 177 movl #pli$_fotrec,r0 sthen set not record file 
0258 31 0064 «178 brw ail sand fail 
OA 53 05 €1 0067 179 60S: bbc #atr v_output,r3,70$ :if file has output ; 
50 00000000'8F D0 0068 180 movil #pli$_feadout,r sthen set can't read output file 
024A 31 00 ¢ 181 brw fai sand fail ms 
02 D1 00 136 70$: cmpl r5,#2 sif key or keyto specified 
19 0078 18 blss 808 ;then_ 
OA 53 08 £0 OO7A 184 bbs #atr vakeyed .r3 80$ sif file not keyed 
50 090000093 OO7E 185 mov l #pli$_not eyd.rO sthen set not keyed file 
0237 1 83 3 136 brw fail sand fail 
83 ; 138 ; ‘deallocate’ buffer, process options 
Oc a2 09020009 BE CA 00 8 190 B0$: bict #atr_m_bfall,fcb_l_attr(r2) ;set buffer not allocated 
5462 A2 E 00 191 movab fcb_B Fab(r2s.r4 set address of rab 
04 AS 00600000 8F CA 0094 136 bicl #<rabSm_kge!rab$m_kgt>,rab$l_rop(r4) ;clear match_gtr(_eqi) 
07 6C ob1 O09C 19 cmpl (ap) ,#7 soptions passed? 
46 13 88 F 194 beql sif eql, then no 
OE 6C D1 QOA1 195 capl (ap) ,#14 zenuf options passed? 
OA 13 QOAS 196 beql 3 egl, then yes 
50 00000000'8F 0 6 197 mov l #pli$_invnumopt,r0 sset invalid options 
020F 1 D 198 brw fail sand fail ; 
50 20 AC DO 0080 199 90S: mov l keynya(ap) r0 get addr of hey number option 
51 5 01 O01 EF 0Q0B4 00 extzv  #1,#1, Fr wrt :set presence of key inr 
00000000 ' GF 1 0B9 201 jsb gpl i$Skeynun iprocess key number 
50 $3 AC OD per 8 mov matchgtr(ap),r0 sget addr of match greater option 
00000000'°GF 16 C3 0 jsb g*pli$Smatchgtr process match greater 


uae 


4 
24 AG 9 


uw 
m 

WOWOOTD FOUMOOUNMUOYP Pu 

MMWNTO UMM yn OO] 20UM 


OC BC 
A2 

20 

18 A2 

5E 

04 AE 
00000000°GF 02 


A 50 
50 00000009 of 
3 


24 AG 14 he 
20 AG «(O18 A 


1¢ 55. 01 
50 14 AC 


A 
50 00000000°8F 
O14E 
50 14 AC 


=-0-0-0 
AOCoeo 


OOOOOOCOCOOOoCOo 
MmMmMmMmMmmMnmMoOIMMS 
n> NNN "Oo NWO OO 


b 
110$: movw ri,rab$w_usz(r4) 


-—P-Om@—-WI0-@aawmnoom 
O00 FN Onn" 0 - amo ooe 


SOOOCOCOCOOOOSOOCOOO OOOO COSCO SOOOOOOSOOCOOSOOOOO OOOO OOO OOOO OOOOOOO 
MDW OOW—MODODOODD OVIWDWOOnrmDOwno wor 


kd ak a tt oh I OOOO 


SPADA MII & EWI WIWI IRIN NINN NINN 2 2 | OOOO NNT nN 
SOONA NEW SO OO NAUE WIN @ O OD NAU EWN @ OOO NAME WN (OOO NOUS WN OVOONOUS 


PPPS £ BS BS BB EE EWI WI NAINA PIPPIN NONINININDY 2 2 OO SS OOOO 


RIPPON IPYPINIPYDININONININININYNINYININIPYINIPININININININPININININMYVAPINYNY 


<n O OCT FT Ow Fou 
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movl mgtebere ‘en: .?e sget addr of match greater or equal 
jsb g*plidsmatchgeq yprocess match greater or equal 
mov recidfrom(ap) ,r0 :get addr of record id from option 
jsb g*pli$$recidfrom process record id from option 
mov L recidto(ap),r0 get addr of rfa to option 
jsb g*pliS$$valrecidto ivalidate record id to 


; process into option. copy the buffer size and address to the rab. 
100$: blbs  5,130$ iit into specifie 


d 
mov jncepeer tag) reset wet tr sthen set read buffer address in rab 


pushl potojeniee spush size and data type 
calls oh gpa bytesize scalculate byte size 
blbs r0,110$ sif invalid data type 

rw fail tthen fail 


sset byte size in rab 
cmpw F<get_hStructuress4>, interyp tap? sbit sized structure? 
bneq 115$ :if neq, no, cont 

ri,sp :get room for temp on stack 
movl sp,rab$l_ubf(r4) et addr of temp in rab 


is 
115$: cmpw #dat_k_char_var,intotyp(ap) ;if data type = char var 
5 p 17087 * - yp 444 yp 


neq ;then 
clrw a@intoaddr (ap) sclear its length : 
bbs #atr_v_scalvar,r3,120$ ;if scalar yery'og. read it all 
addt = #2, rabSl_ubf (rd) iskip length field in address 
brb 17 continue 

120$: addw #2,rabSw_usz(r4) supdate size to include length of vcha 
brb 176$ cont 


; process pointer set. allocate a buffer if necessary. to avoid excessive 
; overhead, we allocate it once pr’ file opening. we ‘deallocate’ it by 

; clearing atr_m_bfall. we actually fr e 

; closed. the buffer size is the maximum record size from the fab, or the 
; default maximum record size. 


y free the storage when the file is 


30$: clrl @intoaddr (ap) sfor pointer set, set pointer to 0 
tstl fcb_l_buf(r2) sbuffer already allocated? 
bneq 160 :if neq, yes, cont 
140$: pushl  fcb_l_buf_end(r2) spush size 
pushl sp push address of temp 
pushal 4(sp) spush address of size 
calls #599. hibSget_ve sallocate the buffer 
blbs r0,150$ — zif allocation failed 
mov | #o( i$_novirmem,r0 sthen set no virt. mem. 
brw fail sand fa 
$: popl seb_t but irs) scopy buffer address to fcb 
$: movl fcb_l_buf(r2),rab$l_ubf(r4) scopy buffer address to rab 


movw fcb_l_buf_end(r2),rab$w_usz(r4) ;set size in rab 


: process key option. 


170$: bbc #1,75,190$ sif key specified 
mov l sepecer tan) £8 sthen set key buffer address in rab 
bneq 180$ :if neq, cont 
mov l #pli$_nokey,r0 sset no key specified 
rw ail gand fail 


b 
180$: movab- keyaddr(ap),r0 spoint to key descr 


APE . . 
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66-SEP-19 PLIRTL.SRCJPLIREAD.MAR; 1 (1) | 
00000000'GF 16 0175 61 sb “ol i$$readkey_ré6 process ke 
% i 178 369 bre uBs - Seontinue 
Py | 
17D 64 ; sequential access is required if a key way not specified, or if the keyto 
17D 65 ; opt tion is present. make sure file has seql, and specify Sequential access 
128 96 3; in the rab. 
07 6C D1 017D 268 1908: cmpl (ap),#7 soptions passed? 
05 15 01 9 leq 31 eq. no 
2c AC) «ODS C1 0 tstl recidfrom(ap) recor id ge sega ted? 
31 3 1 71 bneq 240$ sif neq, yes, tinue 
0A 53. OA €0 0187 2 200$: bbs fate v_seql,r3,210$ rif file Joesn't heer seql 
50 Q0000000'8F DO 0188 ? movl #pli$_fotsql.rb ;then st not seql file 
12A 31 B138 74 brw fail and 
05 00BC C2. 05 #€1 O19 75 2108: bbc #tabsy blo. <fcb. b_ fab+tabsb fac>(r2) 2208 ;if block io | 
38 A2 «D4 «(0198 6 clrl rab$l_Bkt set or seql access 
18 11 O19E 7 brb 2408 ~ 
1053) 14 €1 Q1A0 78 220$: bbc #atr_v_write,r3,230$ ote last oper was a write 
10 AS «20 A2 7D O1A4 444 mova {eb a. Ffa(r2s, rab$w_rfa(r r4) sset correct ete in rab | 
09 13 O1A9 80 beql 230 sif eql, its a term so cont 
1E AG 9¢ 90 O1AB 81 movb #rab$c_rfa,rab$b_ rac(r4) :set for rfa access in rab 
5 D4 O1AF Ht clrl r3 zsset no key specified 
0156 30 0181 8 bsbw pli$$smallget spoint to the record written 
16 AS 8600S 90 5188 Be 230$:  movb #rab$c_seq,rab$b_rac(r4) ;set for seq access in rab 
0188 86.; get the record 
0188 287 ; 
2C AS =—=D4 «(01B8 at} 240$: clrl rab$l_rhb(r4) gassume no fixed control to | 
07 6C 01 0188 89 cmpl 992 options passed! 
0 13 O1BE 34 beql 250$ if eql, 
50 34 AC 9E 01C0 91 movab fxcaddr(ap) r iget ts "af fixed control descr 
QOO00000'GF 16 01C4 $36 jsb ge pt issteet lta. ré6 pprecens yee control 
53 14 AC 9E OCA 293 250$: movab seyeder tap) -£ addr $s 
16 00BC C2 «05 = «£1 «(O1CE) =. 2b 94 bbc oie bio, Se b_ fab+tabso. raed(e8), $ $ ;if block io 
0104 295 $read 3do a read 
15 50 £8 O1DD 296 2608: blbs :Tf tbs. cont 
50 00000000'8F 00 O1E0 97 movl sap cai r0 tset error code in rab 
0005 31 O1E7 98 brw te sand fai 
O1EA 99 270$:  $get get the record 
eB 11 pire BY 80$: obrb 5608 cont 
re 8s ; if into is bit sized structure, copy from temp to taraet | 
1C A2 ¥ AS 3C OFS Be 290$:  movzwl rab$Sw_rsz(r4),fcb_l_buf pt (r2) zsave size of record read 
50 08 AC EB OFA 5 blbs sedate stu 31087 :if read set, cont 
12 AC 0057 8F Bi OQIFE 8 cmpw structure+64>, intotyp(ap) sbit sized structure? 
1A 12 04 bneq if neq, no, cont 
3¢ 06 68 pushr #* lates r3.r4 ? ;save regs 
5 20 A 9} A 08 9 subw ‘}. rab$w_usz(r4),r0 et number of whole bytes 
Oc BC 26 B4 0 ; 98 10 move 0.arab b$T Trubtirds, @intoad r(ap) scopy wneie bytes 
10 AC F8 8F A 8 1 AR! bicb 7 intole get number of bits left 
63 10AC 00 4 FO 18 \ insv (r1),#0, Intolen (ap) (r3)° Veeey penatning. Sits 
C BA O 3 7. popr #°m<r2,r3.r4or restore regs 
3 3: set size of record read if char var 
12 AC OB BI 0 i$ 2958: cmpw #dat_k_char_var,intotyp(ap) ;reading char var? 
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o 86 4 1 bneq 
07 0C A2 OD 8 : 19 bs 
0c BC 22 A&~ BO 1 movw 
4 11 ¢ brb 
20 AG) =—22 AG OBB 300$:  cmpw 
15 13 4 beql 
52 DD 9 $2 pushl 
00000000'8F DD 0238 6 pushl 
00000000'8F DD 0241 st pushl 
00000000'GF 03 FB 0247 38 calls 
O24E $3 ; : 
024E 0; if fixed co 
024E 31; 
07 6C D1 O24E 32 $10$: cmp 
=. bs2 33 beql 
34 AC D5 0253 34 tstl 
26 «613 «402560=0=«=— 5335 beql 
3A AC 0057 8F B81 0258 336 cmpw 
1€ 12 Os 2F 337 bneq 
50 O0&5 C2 9A 0260 338 movzb 
17 13 0265 339 beql 
3¢ 6 BB:Ss«s«C0267 = 340 pushr 
50 D7 0269 341 decl 
34 BC 2C B84 50 28 0268 325 movc3 
38 AC FB 8F BA 0271 34 bicb 
63 38 AC 00 61 FO Q276 344 insv 
3¢ = BA s«(027C~—Os 3545 popr 
O27E 346 ; 
O27E 347 ; process key 
O27E 348: 
OE 08 02 £1 O27E 349 3198: bbc 
50 14AC 9E 0283 350 movab 
53 OC A2 00 0287 351 movl 
00000000'GF 16 0288 325 jsb 
0291 353; 
0291 354 ; process poi 
029i 355: 
0D 08 AC E9 0291 356 $208: blbc 
Oc A2 00020000 8F CB 0295 357 bisl 
0c BC 14 A2 DO O29D 358 mov | 
BsAs 59; 
02A 60 ; successful 
8 A 61; 
07 6C D1 O2A 6¢ $30$: cmp 
OA 15 O2A 7 bleq 
50 30 AC 0 BSAg 64 mov l 
04 =«1 4 65 beql 
60 10 A4 7D OQ2AD 66 movq 
Oc A2 021C0000 8F CA 02B1 67 340$: _—ibicl 
0289 68 
02B9 69 
20 A2 10 AS 7D 02B9 70 movq 
04 OQ2BE 71 ret 
O2BF 72 
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o7SEb= 1 984 99:99:36 
300$ iif neg no, cont 
#atr_v_scalvar,fcb_l_attr(r2), 60$ if scalvar, Length field was 


read, cont 

Great. Peetrs? eemeneter tie: iplug size read in length field 
icon 

rab$w_rsz(r4),rab$w_usz(r4) ;was record and target same size? 

3108 zif egl then yes, cont 

r2 tset fcb addr 

set record error 

;set error condition(warning) 

isignal the condition and continue 


AX/VM 
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ntrol to is a bit sized structure, copy from temp to target 


(ap) ,#7 soptions passed? 

31 3 eqt. no, cont 

fxcaddr (ap) ifixed control specified? 

319$ sif eql, no, cont  —siy 
#<dat_k_structure+64>, fxctyp(ap) zis it a bit sized structure? 
31 neq, no 


2% cont 
l <fcb_b_ fab+fabSb_fsz>(r2) r0 iget fixed control size 


sif eql, none, cont 
#*m<r2,73,74,r5> save regs 
r iget number of whole bytes to copy 
r0,arab$l_rhb(r4) ,afxcaddr(ap) ;copy whole bytes 


#*c7,fxclen(ap :get number of bits remaining 
(r1),#0,fryclen(ap),(r3) scopy remaining bits 
#*m<r2,r3,°4,75> irestore regs 

to option. 
Fe canes ret ait saree :if keyto specified 
keyaddr(ap),r sset addr of keyto descr 


fceb_l_attr(r2),r3 
g*pli$$keyto_ré 


nter set 


sprocess keyto 


ceedtypelse) 2000 :if pointer set specified 
#Watr_m bfall,fcb_l_attr(r2) ;then mark buffer allocated 
fcb_U_Buf(r2) ,aintoaddr (ap) sand plug pointer set 
completion 
(ap) ,#7 options passed? 
340$ sif leq, no d : 
recidto(ap) ,r0 sget addr of record id to option 
340$ :if eql, not specified 
rab$w_rfa(r4),(r0) set record id to 
#<atr_m_delete!atr_m_currec! = ;clear delete and indicate 


atr_m_virgin!atr_m_write>,fcb_l_attr(r2) ;current record 
sgorrect, not virgin, not write 

rab$w_rfa(r4),fcb_q_rfa(r geet correct rfa in fcb 
sreturn 


7 
(1) 


zload the attributes into r3 for routine cal 


PL 


C 14 
PLISREAD - pli runtime read record 16-SEP-1984 02:24:58 VAX/VMS Macro v04-00 Page 8 
tO08 g-sEp-] 984 F396:38 PLIRTL.SRCJPLIREAD.MAR; 1 “ (1). 
B 74 
es B 75 fail:  bne 10$ :if not enough parms 
50 we oe 06 C 6 sevt #pli$_parm,r0 ithen speci ty not enough parameters 
2 04 ¢ ? clrl r sassume no fcb specified | 
01 . C 4 cmpl fap) a sif feb specified 
52 04 AC DO OSE 360 i. a + Oe coer edd f feb | 
mov cbaddr(ap),r get address of fc 
50 00000000'8F 01 D 81 10$: cmpl 8 tis rmsr, 70 4% error code in rms rab 
=: D Bg bneq 4 jand 
08 AS 0001827A BF D1 D 4 cmp #rms$_eof,rab$l_sts(r4) ;if end of file 
Oc 12 E 4 bneq 208 jthen 
26 DD E HF pushl set fcb addr 
DD E 6 pushl rf ; sset error code _ 
00000000'8F oD E 87 ushl #pli$_endfile set endfile condition 
~~ F 88 rb zelse 
Q0000000'GF 16 $F 89 20$: sb g*pli$$chk_keycnd scheck for key condition 
52. DD F 390 40$: pushl fr set fcb addr 
50 OD F 91 pushl fr sset error code 
00000000'8F DD F 38 pushl ae ttt oercer set error condition 
00000000'GF 03 FB 0 93 50$ calls #53,g*pli$io_error isignal the condition 
04 030 394 ret and return 
30 395 
30 96 ;++ 
3 4 spli$$smallget 
30 99 ; a 4 byte buffer on the stack and issues a $get. if the get fails because 
3 00 ; of buffer too small, or if it succeeds, the routine returns successfully. 


; otherwise, the pl/i error condition is signaled, with the rig pt 

; subcode. This routine is used to correctly position rms for keyed access. 
; A oeet is required because the $find operation does not affect rms's next 
record. 


inputs: 
r3 - address of ae descr for onkey 
r4 - address of ra 

outputs: 


none 
side effects: | A 
the file is positioned to the requested rfa 


| 
| 
| 
this routine saves the current user buffer address in the rab, allocates | 
| 
| 
| 
| 
| 
| 


SOOOOCOCOCOCOCOCOCOOOOOOSSOSSSSDOOOSOCOCOCSCSOSOOCOOCODOCOOOOCOCSOODOOCOCOOOOO0O0 300 
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FWAWIWIWNDNPDY 2 HF H SH QOOOCOCOCOCOOOCOCOOOCoOoOO 
MIMS NOMNEDNWOS EP PPPPPPEPPPEPEPPrP rrr EE PrP PONV POVOPOO LO PWS POT 


Ber et et et et et et et et tt kk kk, a a ek ee tal tat at tat eh 


WMRIMIPOPONPININPINPINYDEYD 2 2 2 OO OO MP OOO OOCCOOO 
SOON UE WN 9 OONOAU EWN O OONOMU SE Wr 


pli$Ssmallget:: 
assume <rab$w_usz+2> eq rab$w_rsz ’ 
$0 AS DD pushl rab$w_usz(r4) zsave buffer sizes 
4 A4 DD pushl rab$l_ubf(r4) zsave user buffer addr 
28 AS sODD pushl rab$l_rbf(r4) :save record buffer addr 
24 AG =7E ODE moval <-(sp),rab$l_ubf(r4) sset legal buffer addr 
20 AS) = 04~Sts«éwBDD movw #4, rab$w_usz(r4) set length of zero 
$get r4 iget the record 
1350 €8 blbs r0,10$ :1f lbs, cont. 
000181A8 8F 50 O01 cmpl r0,#rms$_rtb record too wig? 
A 13 beql 10$ sif eql, yes, treat as success 
50 apenas B 0 mov l #pli$_rmsr,r0 :set rms rab error 
FF85 1 brw fail sand fail 
5E 4 4: 10$: movab 4(s esp iclean stack 
8 AS BED popl rab3l_rbf(r4) srestore record buffer addr 
4 A4 BEDO popl rab$l_ubf(r4) restore user buffer addr 


a4 


—s 


mug 


- pli runtime read record 


ne 
48 2 


4B 4 end 


16-SEP=1 
~SEP=1 


rab$w_usz(r4) 


be 14:89:36 


;restore 
;return 


AX/VMS Macro V04-00 
PLIRTL.SRCIJPLIREAD.MAR; 1 


buffer sizes 


Page 
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9 
1 
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4 


Se 
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PLISREAD - pli runtime read record 16-SEP-1984 02:24:58 VAX/VMS Macro vos -00 P 1 
’ ore eer o84 $7599.36 sel? 


1 
Symbol table PLIRTL.S RCIP LIREAD.MAR; 1 1) 


The working set Limit was 1050 pages. 

44570 bytes (88 pages) of virtual memory were used to buffer the intermediate c 

There were 40 pages of symbol table space allocated to hold 715 non-local and 53° loca symbols. 
434 source Lines were read in Pass 1, producing 16 object records in Pass 2. 

23 pages of virtual memory were used to define 20 macros. 


$oeeeeseoecooeescoccooccocn} 


| 
RMS$_EOF = 9001827A | 
RMS$_RTB = 0001 
Tl ie? = 00000001 | 
SYSSGET eteneeee GX 02 
SYSSREAD keeterer GX 0 
pesca name anmaacaeaen + | 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes | 
, OS 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD a NOVEC BYTE | 
$ 000001C2 450.) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
PLISCODE 00000348 ( 843.) 02 ¢ 2.) PIC USR CON’ REL LCL SHR EXE RD NOURT NOVEC LONG 
duseunsesenseeonneianbens 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 00:00:00.07 00:00:00.28 | 
Command processing 94 00:00:00.55 00:00:02.24 
Pass 212 00:00:08.01 00:00:18.96 
Symbol table sort 5 00:00:00.89 00:00:01.81 
Pass 2 85 00:00:01.81 00:00:03.79 
Symbol table output 14 90:00:00°12  00:00:00-28 | 
Psect synopsis output 2 00:00:00.0 00:00:00.0 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 421 00:00:11.48 00:00:27.33 
Macro Library name Macros defined | 
_-$255$DUA28: CPLIRTL.OBJJPLIRTMAC.MLB; 1 6 
“$255$DUA28:(SYSLIBJSTARLET.MLB;2 11 
TOTALS (all Libraries) 17 


808 GETS were required to define 17 macros. 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/D1 SABLE=TRACEBACK/LIS=LIS$:PLIREAD/OBJ=OBJ$:PLIREAD MSRC$:PLIREAD/UPDATE=(ENH$:PLIREAD) +LIB$:PLIRTMAC/LIB | 
| 
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